CURSO PRÁTICO FE] DE PROGRAMAÇÃO DE COMPUTADORES 
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SERRA PELADA: O TOQUE DE MIDAS 


O rei Midas tinha o dom de transformar em ouro 
tudo o que tocava. Você, em contrapartida, terá 
que fazer levantamentos geológicos, calcular cus- 
tos e realizar escavações. Mas não se desespe- 
re: o computador facilitará o seu trabalho, exibin- 
do oráticos TUSHALVOS ..c ss ss cssenserener em 681 


RECORRA AOS ARQUIVOS 


Programas e arquivos de dados. Limitações da fita 
cassete. Transferência de dados de-um progra- 
ma para outro. O que é um arquivo de dados? Sig- 
nificados de ler (read) e escrever (write) para um 
CORA o ss pa Too A Sa ao 6868 


PROGRAMAÇÃO DE GRÁFICOS EM 3-D (4) 


Agora que você já conhece os segredos da pers- 
pectiva, está em condições de reunir vários pro- 
gramas e rotinas e desenhar as mais diversas fi- 
guras flutuando nas profundezas do espaço inte- 
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PLANO DA OBRA 

INPUT é uma obra editada em fascículos semanais, e cada conjunto de 
15 fascículos compõe um volume. A capa para encadernação de cada vo- 
lume estará à venda oportunamente. 


FERIAS, VIAGENS, MUDANÇAS... 

NÃO FIQUE COM A COLEÇÃO INCOMPLETA 

Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
cículos enquanto você estiver fora. Se, por qualquer motivo, você perdeu 
alguns números, peça-os também a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 


1. Pessoalmente — Em São Paulo, os endereços são: Rua Brigadeiro Tobias, 
773, Centro, telefone 227-4188; Av. Industrial, 117, Santo André, telefone 
449-0411, das 7h30 às 17h00 - dias úteis. No Rio de Janeiro, Av. Mem de 
Sá, 191/193, Centro, telefone (021) 222-7422, das 7h30 às 17h00 - dias úteis. 


2. Por carta — Envie para: 
DINAP — Distribuidora Nacional de Publicações 
Números Atrasados 
Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 


3. Por telex — Utilize o nº (011) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
Lisboa; Apartado 57; Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
pedidos dependerá da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o título e/ou autor da obra, 
além do número da edição. 


COLABORE CONOSCO 
Encaminhe seus comentários, críticas, sugestões ou reclamações ao 
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Figura da mitologia grega, o rei Midas 
recebeu de Dioniso (deus do vinho) 

o poder de transformar em ouro tudo o 
que tocava. Em nosso jogo, porém, 

as coisas não serão assim tão fáceis. 


A primeira parte deste Jogo apresen- 
tou opções como “Pesquisa e Desenvol- 
vimento", “Levantamento Geológico”, 
““Cavar mais 200 m”*, “Vender Ouro no 
Mercado" e “Passar a Vez”, As sub- 
rotinas que se seguem completam o pro- 
grama, particularizando cada opção. 

A opção ''Pesquisa e Desenvolvimen- 
to” é obtida por meio da tecla 1; “'Le- 
vantamento Geológico” é a opção 2; 
“Cavar mais 200 m””, a opção 3; “Ven- 
der Ouro no Mercado”"", a opção 4. A 
quinta opção cuida de “Passar a Vez , 
de forma que nenhuma rotina especial 
é necessária. As opções 1, 2 e 4 intro- 
duzem um elemento de acaso em seu re- 
sultado, tentando, assim, imitar a rea- 
lidade do trabalho de mineração. 





PESQUISA E DESENVOLVIMENTO 


1000 BORDER 6: PAPER 6: INK O: 
CLS 
1010 PRINT PAPER 1; INK 6;AT 3 


/4;" PESQUISA E DESENVOLVIMENTO 
"AT 4,6;" (para reduzir os cus 
toa)” 

1020 PRINT AT 7,4;"Quanto prete 

nde investir?(59)”: INPUT rd 
1050 LET a(m,4)=a(m,4)-INT (rd* 
.05)-1 

1060 IF a(m,4)<0 THEN 

4)=0 

1080 LET a(m,2)=a(m,2)-rd: 

a(m,1)=a(m,1)-rd 

1100 PRINT AT 13,3;"08 custos d 

e mineracao foram";TAB 3;“reduz 
idos em S";INT (rd*.05)+1;” por 
200 m” 

1110 FOR z=1 TO 300: 
1120 RETURN 


LET aím, 


LET 


NEXT z 


1000 GOSUB 1500 
1010 LOCATE 1,0:PRINT “Pesquisa 
e Desenvolvimento" :LOCATE 1,1: 


25 PROGRAMAÇÃO DEJOGOS 25 


ma E=a = E e 


Ee — - a = E 





PRINT ” (para reduzir os custos 
) = 
1020 LOCATE 0,3:PRINT "Quanto Pp 
retende”: INPUT “investir ";RD 
1030 IF RD<=0 THEN 1000 

1050 A(M,3)=A(M,3)-INT(RD/20)-1 
1060 IF A(M,3)<0 THEN A(M,3)=0 
1080 A(M, 1)=A(M,1)-BD:A(M,0)=A( 
M,0)-BD 

1100 PRINT: PRINT "Os custos de 
mineração foram”:PRINT “reduzid 
os em S$"; INT(RD/20)+1;"por 200 
mn" 

1110 FOR Z=1 TO 2000:NEXT 

1120 RETURN 


1000 
1010 


HOME 


VTAB 1: HTAB 5: INVERSE : 





= ADICIONE AS ROTINAS 

QUE FALTAVAM 
= LEVANTAMENTO GEOLÓGICO 
Lil — ESCAVAÇÕES 
E GRÁFICOS ILUSTRATIVOS 


PRINT ” PESQUISA E DESENVOLVIM 
ENTO *: NORMAL PRINT : PRINT 

TAB( 10)"P/REDUZIR OS CUSTOS” 
1020 PRINT PRINT : INPUT “QU 
ANTO PRETENDE INVESTIR ";RD 


1030 IF RD < O THEN 1000 

1050 A(M,3) = A(M,3) - INT (BD 
/f 20) - 1 

1060 IF A(M,3) < O THEN A(M,3) 
SR) 

1080 A(M,1) = A(M,1) - RD:A(M,O 
) = A(M,0) - AD 

1100 PRINT PRINT “OS CUSTOS 


DE MINERACAO FORAM REDUZIDOS" : 
PRINT “EM 8"; INT (RD / 20) + 1 
|” POR 200 M” 

1110 FOR Z = 1 TO 2000: 
1120 RETURN 


NEXT 





E.) 


1000 CLS 

1010 PRINT €2,"pesquisa e desen 
volvimento”: PRINT €34," (PARA RE 
DUZIR 08 CUBTOS)* 

1020 PRINT: INPUT"QUANTO PRETEND 
E INVESTIR ";RD 

1030 IF RD<XO THEN 1000 

1050 A(M,3)=A(M,3)-INT(RD/20)-1 
1060 IF A(M,3)<0 THEN A(M,3)=0 

1080 A(M,1)=A(M,1)-RD:A(M,0)=A( 
M,0)-RD 

1100 PRINT €257,"08 CUSTOS DE M 
INERACAO FORAM REDUZIDOS EM 

": INT (RD/20)+1;"POR 200 M” 

1110 FOR Z=1 TO 2000:NEXT 

1120 RETURN 


No programa do Spectrum, a linha 
1000, além de limpar a tela, muda suas 
cores. Nos demais computadores, as co- 
res da tela permanecem as mesmas após 
a limpeza do vídeo. 

A linha 1010 coloca um rótulo no al- 
to da tela, antes que a linha 1020 per- 
gunte ao jogador quanto dinheiro será 
investido em pesquisa e desenvolvimen- 
to (RD, ou rd'no Spectrum, contém a 
quantia escolhida). 

A linha 1050 diminui o custo de mi- 
neração de acordo com a quantia inves- 
tida no processo de pesquisa. A linha 
1060 assegura que o custo de produção 
não se torne negativo. A linha 1080 acer- 
ta o saldo total e a quantia do jogador, 
de acordo com o que foi gasto em *'Pes- 
quisa e Desenvolvimento”. 

A linha 1100 informa qual foi a redu- 
ção de custos por 200 m de escavação. A 
linha 110 contém um laço FOR...NEXT 
que provoca uma pequena demora antes 
que a sub-rotina termine. 


LEVANTAMENTO GEOLÓGICO | 


2000 PAPER 4: BORDER 4: INK O: 
CLS 
2030 LET r(m)=0: LET c(m,1l)=INT 
(RND*90) +10: LET c(m,2)=INT (( 
RND*5)+2)*200: LET c(m,3)=INT ( 
RND*200)+1: LET 11=INT (BRND*3)- 
1 
2050 LET cí(m,4)=c(m,2)+11*200 
2070 LET c(m,5)=0: LET kk=INT ( 
RND*100): IF kk<c(m,1) THEN LE 
T c(m,5)=1 
2080 PRINT PAPER 6; INK O;AT 2 
:5:” LEVANTAMENTO GEOLOGICO ”": 
PRINT AT 5,5;"Probabilidade de” 
- PRINT AT 6,5;" encontrar ouro: 
"«c(m,1);"t&”": PRINT AT 
B,5;"Provavel profundidade: “ic 
(m,2);ºm”": PRINT AT 10,5;"Prova 
vel quantidade: ";c(m,3);"kqg” 
2100 LET z=INT (RND*150000): LE 











ne | 


Em 








T a(m,2)=a(m,2)-z: LET alm,1)=a 
(m,1)-z 

2110 PRINT FLASH 1;AT 12,0;"De 
Beja comecar a escavar (8s/n)?” 
2120 LET rS=INKEYS: IF r$="" TH 
EN GOTO 2120 

2130 IF r$="s” THEN LET aí(m,6) 
=0: LET r(m)=1: GOTO 3000 

2500 RETURN 

2000 GOSUB 1500 

2030 R(M)=0:C(M,0)=INT(RND(1)*9 
0)+10:C(M,1)=INT(RND(1)*5+2)*20 
O:C(M,2)=INT(AND(1)*200+1):LL=I 
NT (RND(1)*3)-1 

2050 C(M,3)=C(M,1)+LL*200 

2070 C(M,4)=0:KK=INT (BND (1)*100 
)J:IF KK<C(M,0) THEN C(M,4)=]1 
2080 LOCATE 3,0:PRINT "Levantam 
ento Geológico”: PRINT:PRINT "Pr 
obabilidade de”:PRINT "encontra 
r ouro:":;C(M,0);"t" 

2090 PRINT:PRINT "Provável" :PRI 
NT "profundidade:";C(M,1);"m":P 
RINT: PRINT "Provável”":PRINT "qu 
antidade:";C(M,2);"kg” 

2100 Z=INT(150000! *RND(1))J:A(M, 
L)=A(M, 1)-Z:A(M,0)=A(M,0)-Z 
2110 PRINT: PRINT "Deseja começa 
r as”: PRINT “escavações (S/N) ? 
2120 R$=INKEYS:IF R$<>"S" AND R 
S<>"N” THEN 2120 

2130 IF R$="S”" THEN A(M,5)=0:R( 
M)=1:GOTO 3000 

2500 RETURN 


ic] 

2000 HOME 

2030 R(M) = 0:C(M,0) = INT ( R 

ND (1) * 90) + 10:C(M,1) = 200 

* INT ( BND (1) * 5 + 1):C(M,2 

) =» INT ( RND (1) * 200 + 1)sL 

L = INT ( RND (1) *3) -1 

2050 C(M,3) = C(M,1) + LL * 200 

2070 C(M,4) = O:KK = INT ( RND 
(1) * 100): IF KK < C(M,0) THE 

NC(M,4) = 1 

2080 VTAB 1: HTAB 7: INVERSE : 
PRINT ” LEVANTAMENTO GEOLOGICO 
"; NORMAL : PRINT : PRINT : PR 

INT "PROBABILIDADE DE”: PRINT *” 

ENCONTRAR OURO: ";C(M,0);"8” 

2090 PRINT : PRINT "PROVAVEL P 

ROFUNDIDADE: *;C(M,1);” Mº: PRI 

NT : PRINT "PROVAVEL QUANTIDADE 
";C(M,2);” KG" 

2100 Z = INT ( END (1) * 15000 
O) :A(M,1) = A(M,1) - Z:A(M,0) = 
A(M,0) - Z 

2110 PRINT : PRINT "DESEJA COM 
ECAR AS ESCAVACOES (S/N) 7" 
2120 GET R$ 

2130 IF R$ = "S” THEN A(M,5) = 
O:R(M) = 1:. GOTO 3000 

2500 RETURN 


2000 CLS 





2030 R(M)=0:C(M,0)=RND(90)+9:C( 

M,1)=(RND(5)+1)*200:C(M, 2) -RND( 

200) : LL=RND(3)-2 

2050 C(M,3)=C(M,1)+LL*200 

2070 C(M,4)=0:KK=AND(100)-1:IF 

2080 PRINT €5,"LEVANTAMENTO GEO 

LOGICO ":PRINT €129,"PROBABIL.D 

E ENCONTRAR OURO” ;C(M,0);"%":PR 

INT 6193," PROVAVEL PROFUNDIDADE 
*;C(M,1);"M": PRINT €257," PROVA 

VEL QUANTIDADE ";C(M,2);"KG”º 

2100 Z=RND(150000)-1:A(M,1)=A(M 
«1)-Z:A(M,0)=A(M,0)-Z 

2110 PRINT €353,"DESEJA COMECAR 
AS ESCAVACÕOES 7 * 

2120 AR9=INKEYS: IF R39<>"58" AND R 

8<>"N” THEN 2120 

2130 IF R3="8”" THEN A(M,5)=0:R( 

M)=1:60TO 3000 

2500 RETURN 


Todas as máquinas limpam a tela na 
linha 2000. O Spectrum também muda 
as cores da tela. A linha 2030 faz com 
que o valor de R(M) — r(m), no caso do 
Spectrum — seja zero, para indicar que 
as escavações ainda não começaram. Es- 
sa linha também calcula as possibilida- 
des de encontrar ouro, além da quanti- 
dade de metal e da profundidade pro- 
vável do veio. LL (ou 1l) é um número 
aleatório entre —l e 1 que será usado na 
próxima linha para determinar a pro- 
fundidade real da mina (lembre-se de 
que o valor em C(M,2) é apenas a pro- 
fundidade provável). 

A linha 2050 faz com que C(M,4) as- 
suma um valor igual a € (M,2) (mais ou 
menos 200 m, ou seja, 200 vezes LL). 
A seguir, a linha 2070 decide se a mina 
vai ou não ter ouro. Se não houver ne- 
nhum ouro, C(M,5) se tornará zero. KK 
é outro número aleatório, entre O e 99. 
Ele é comparado com as chances de se 
encontrar ouro — se for menor do que 
estas, C(M,5) se tornará 1 para indicar 
que há ouro na mina, ' 

A linha 2080 (2090 no Apple, no 
TK-2000 e no MSX) dá ao proprietário 
o resultado do levantamento geológico. 
Os números informam as chances de se 
encontrar ouro, onde e em que quanti- 
dade. Mas a existência ou não do metal 
na mina depende de uma série de fato- 
res aleatórios. Dessa forma, o jogador 
deve ser muito criterioso ao fazer seus 
investimentos. 

Agora, as más notícias: o relatório é 
pago e seu custo, imprevisivel. Em to- 
do caso, a conta fica no máximo em 
$150000 (valor de Z escolhido na linha 
2100). O custo do relatório é então sub- 
traído das posses do jogador, e essa de- 
dução aparece no saldo total. 

A seguir é oferecida a opção de ini- 
ciar a escavação — a linha 2110 pergun- 
ta: “DESEJA COMEÇAR AS ESCA- 


VAÇÕES (S/N)? Se a resposta for 
sim, O programa prosseguirá na sub- 
rotina de escavação da linha 3000. 





A ESCAVAÇÃO 


3000 BORDER 6: PAPER 6: 
CLS 

3010 IF r(m)=0 THEN PRINT FLA 
SH 1;AT 9,6;"A mina nao foi abe 


INK 1: 


rta!”: FOR z=1 TO 10: SOUND .3, 
-10: NEXT z: RETURN 

3020 BORDER 5: INK O: PAPER 4: 
CLS 


3022 PRINT PAPER 5; TAB 14;CHAS 
147:CHRS$S 148;CHAS 149;TAB 14;C€C 
HRS 150;CHRS 151;CHRS 152; CHRS 
153;TAB 13;CHRS 154;CHRS 155;CH 
R$ 156;CHAS 157;CHAS 158;TAB 31 
;CHARS 32 
3025 FOR z=1 TO 32: 
1J44;: NEXT z 
3060 PRINT AT 4,0;: FOR z=100 T 
O 1400 STEP 100: PRINT TAB 4-LE 
N STARS z;z: NEXT z 
3090 LET a(m,2)=a(m,2)-a(m,4): 
LET a(m,lj=a(m,1l)-a(m,4): LET a 
(m,6)=a(m,6)+200: PAUSE 30 
3100 PRINT AT 3,15;CHAS 146: FO 
AR f=4 TO (a(m,6)/100)+3: PRINT 
AT f,15;CHRS 145: FOR w=1 TO 10 
- SOUND .01,-20: NEXT w: NEXT €£ 


PRINT CHRS$ 


3120 IF a(m,6)=c(m,4) AND cím,5 
)=1 THEN GOTO 3500 
3130 PRINT FLASH 1; PAPER 5;AT 


6,6:;” Nada de ouro ainda!”: IF 
a(m,6)=c(m,2)+200 THEN PRINT 
FLASH 1; PAPER 1; INK 6;AT 18, 
0:”" Nao ha ouro nesta mina. 

Va cavar em outro lugar.”: 


FOR z=1 TO 10: SOUND .5,-20: N 
EXT z: LET a(m,6)=0: LET r(m)=0 
3140 PAUSE 150 
3300 RETURN 
3500 PRINT PAPER 6; INK 2; FLA 
SH 1:AT £,12;"0 U R 0": FOR Zz=- 
20 TO 50: SOUND .017,2z: NEXT z: 

PAUSE 75 
3550 LET a(m,5)=a(m,5)+1: LET a 
(m,3)=a(m,3)+c(m,3): LET alm,l) 
=a(m,1)+(a(m,3)%er): LET a(m,6) 


=: 


pl 


3000 CLS:GOSUB 1510 

3010 IF R(M)=0 THEN PRINT: PRINT 
“PRINT "A mina não foi aberta ! 

".PLAY "T25506VI5SAF”":FOR Z=1 TO 
3000: RETURN 

3020 LOCATE 14,3:PRINT CHRS(195 

) :CHR$S (196) ;CHR$ (197) :LOCATE 14 
4: PRINT CHR$ (198) ;CHRS (199) ;CH 

R8 (200) ;CHRS (201) 

3022 LOCATE 13,5:PRINT CHARS (202 
) ;CHRS (203) ;CHRS8 (204) ;CHR$S (205) 
: CHRS (206) :LOCATE 31,5:PRINT CH 

R$(32) 

3025 LOCATE 0,6:FOR Z=0 TO 29:P 

RINT CHR$3 (192); :NEXT 


LET r(m)=0: GOTO 3300 





3060 LOCATE 0,7:FOR Z=100 TO 14 
00 STEP 100:PRINT TAB (5-LEN(STR 
8S(Z)));Z:NEXT Z 

3090 A(M, 1)=A(M,1)-A(M,3):A(M,O 
J=A(M,0)-A(M,4) :A(M,5)=A(M,5)+2 
00 

3100 LOCATE 15,3:PRINT CHR$S (194 
J:FOR F=4 TO (A(M,5)/100)+5:LOC 

ATE 15,F:PRINT CHR5(193):PLAY"T 
25501912M1IV1I5A64":NEXT F 

3120 IF A(M,5)=C(M,3) AND C(M,4 
)J=1 THEN 3500 

3130 LOCATE 4,0:PRINT ” NADA DE 
OURO AINDA!":IF A(M,5)=C(M,1)+ 
200 THEN LOCATE 0,21:PRINT "Não 
há ouro nesta mina”:PRINT "Vá 
cavar em outro lugar”: PLAY"TZ55 
O3CDEFG” :A(M,5)=0:R(M)=0 

3140 FOR Z=1 TO 1500:NEXT 

3300 RETURN 

3500 LOCATE 10,0:PRINT " O UR 


O 

3510 FOR Z=1 TO 10:PLAY"T25503€ 
A” : NEXT 

3550 A(M,4)=A(M,4)+1:A(M, 2) =A(M 
2) +C(M,2) :A(M,0)=A(M,0)+(A(M, 2 
)J*ER):A(M,5)=0:R(M)=0:GOTO 3140 


ato 


3000 HOME 
3010 IF R(M) = O THEN VTAB 1: 
PRINT "A MINA NAO FOI ABERTA ! 
"; CALL - 198: FOR Z = 1 TO 10 
00: NEXT : RETURN 
3020 HGR : HCOLOR= 
50 TO 279,50 
3030 HPLOT 125,45 TO 130,45 TO 
130,40 TO 125,40 TO 125,45: HP 
LOT 145,45 TO 150,45 TO 150,40 
TO 145,40 TO 145,45: HPLOT 135, 
50 TO 135,40 TO 140,40 TO 140,5 
0 
3040 HPLOT 120,50 TO 120,40 TO 
130,30 TO 135,30 TO 135,25 TO 
140,25 TO 140,30 TO 150,30 TO 1 
50,5 TO 175,5 TO 175,35 TO 185, 
45 TO 185,50 TO 210,50 TO 175,5 
3050 HCOLOR= 6: FOR I = 58 TO 
151 STEP 8: HPLOT 0,1 TO 100,1: 
NEXT 
3090 A(M,1) 
(M,0) = A(M,0) 
= A(M,5) + 200 
3100 HCOLOR= 5: FOR I = 5 TO ( 
A(M,5) * 8 / 100) + 50: HPLOT 1 


3: HPLOT O, 


= A(M,1) - A(M,3):A 
- A(M,4):A(M,5) 


55 + 4 * BND (1),1I TO 170 - 4 
* BND (1),1I:X = PEEK ( —- 1633 
6): NEXT 

3120 IF A(M,5) = C(M,3) AND C( 
M,4) = 1 THEN 3500 

3130 VTAB 22: HTAB 1: PRINT “N 
ADA DE OURO AINDA !”": IF A(M,5) 


= C(M,1) + 200 THEN PRINT CNA 
O HA OURO NESTA MINA”: PRINT "V 
A CAVAR EM OUTRO LUGAR" :A(M,5) 
= O0:R(M) = O 


3140 FOR Z = 1 TO 1500: NEXT 
3300 HGR : HOME : TEXT : RETUR 
N 

3500 HOME : VTAB 22: HBTAB 15: 
PRINT "O U RO 1111": CALL - 1 
98 





| | 


3550 A(M,4) = A(M,4) + 1:A(M,2) 
= A(M,2) + C(M,2):A(M,0) = ACM 
10) + A(M,2) * ER:A(M,5) = AÍ(M, 

5) = O:R(M) = O: GOTO 3140 

3000 CLS 


3010 IF R(M)=0 THEN PRINT 066,7 
A MINA NÃO FOI ABERTA!” ;:FOR Z= 
1 TO 10:SOUND 120,1:NEXT:RETURN 
3015 IF A(M,5)>0 THEN LINE(140, 
40)-(157,191), PRESET,BF:GOTO 30 
90 

3020 PCLS:SCREEN 1,0:COLOR 3:LI 
NE (0,0)-(255,31), PSET,BF 

3022 PUT(131,8)-(168,31),H,PSET 
3025 FOR Z=0 TO 31:PUT(Z*8,32)- 
(2*8+7,34),T, PSET:NEXT 

3060 FOR Z=100 TO 1400 STEP 100 
:Z58=STRS$S(Z)+"-": DRAW"C4SBBM"+ST 
R$ (49-B*LEN(ZS))+","+STR$(32+10 
*Z/100) :GOSUB 9000: NEXT 

3090 SCREEN 1,0:A(M,1I)=A(M,1)-A 
(M,3) :A(M,0O)=A(M,0)-A(M,4) :A(M, 
5)=A(M,5)+200 

3100 PUT (145,32)-(152,39),D,PS 
ET:FOR F=4 TO (A(M,5)/100)+3:PU 
T(145,F*10)-(152,F*10+9),B, PSET 
: PLAY"TS001BDBDEBDBDE” :NEXT 
3120 IF A(M,5)=C(M,3) AND C(M,4 
)J=1 THEN 3500 

3125 FOR Z=1 TO 1000:NEXT 

3130 PRINT €40,"NADA DE OURO AI 
NDA! ";:IF A(M,5)=C(M,1)+200 T 
HEN PRINT €128,"NAO HA OURO NES 
TA MINA. VA CAVAR EM OUTRO LUGA 
R ";:PLAY"TS003CDEFG":A(M,5)=0: 
R(M)=0 

3140 FOR Z=1 TO 2500:NEXT 

3300 RETURN 

3500 F=40+A(M,5)/10:COLOR 2:LIN 
E (140,F)-(157,F+5), PSET,BF 

3510 FOR Z=1 TO 10:PLAY"TSOZCA” 
: PUT (140,F)-(157,F+5),H,NOT:NEX 
T 

3520 FOR Z=1 TO 2000:NEXT 

3550 A(M,4)=A(M,4)+1:A(M, 2) =A(M 
2)+C(M,2) :A(M,0)=A(M,O)+(A(M,2 
J*ER) :A(M,5)=0:R(M)=0:GOTO 3300 


Essa rotina é chamada de dois pon- 
tos diferentes do programa. A opção de 
cavar é oferecida após o levantamento 
geológico; mas ela também pode ser fei- 
ta a partir do menu, aprofundando a 
mina em 200 m — opção 3. 

Como de costume, a primeira linha 
limpa a tela (no Spectrum e no MSX, 
as cores mudam). A linha 3010 verifica 
se já foi feito um levantamento geoló- 
gico. As linhas 3020 a 3090 cuidam dos 
gráficos que representam a mina. A li- 
nha 3100 ilustra o processo de escava- 
ção, ao mesmo tempo que produz al- 
guns efeitos sonoros. 

A linha 3120 verifica se as escavações 
atingiram o nível provável do filão e se 
existe ouro na mina (é possível que se 
tenha cavado mais de 1000 metros ape- 


nas para descobrir que não há nenhum 
metal). Se for achado ouro, o progra- 
ma vai para a linha 3500, que dá as boas 
novas ao dono da mina, junto com al- 
guns efeitos sonoros (menos no Apple 
e TK-2000). A linha 3550 ajusta as pos- 
ses do jogador conforme a quantidade 
de ouro descoberta. 

Se não houver ouro na mina, O pro- 
grama continuará na linha 3130, Se a es- 
cavação ultrapassar o nivel em que se es- 
perava achar o metal (200 m), o joga- 
dor será informado de sua inexistência. 
Se o buraco ainda não chegou a essa 
profundidade, o jogador será informa- 
do: “NADA DE OURO AINDA!” 


VENDA O OURO 


4000 PAPER 6: 
CLS 

4020 PRINT INVERSE L;AT 2,4;* 
CAIXA ECONOMICA FEDERAL “;AT 4, 
5S;"Agencia de Serra Pelada”: PR 
INT AT 8,1;"” Cotacao do ouro: * 
ser;” por kg";AT 14,3;"Quantos 

quilos vai vender?”: INPUT nte 
4070 IF nte>a(m,3) THEN PRINT 
FLASH 1;AT 18,4;"Voce nao tem 
tanto ouro!” 

4080 LET nte=INT nte 

4090 IF nte>a(m,3) OR ntec<0 THE 

N GOTO 4020 

4095 PRINT AT 16,0;CHRS 32;TAB 
31;CHARS 32 

4100 LET a(m,3)=a(m,3)-nte: LET 
a(m,2)=a(m,2)+(ntefer): LET aí 

m,1l)=a(m,1)+(nte*er) 

4130 PRINT PAPER 5;AT l6,l;nte 
;"kag vendidos por S";nte*er: PA 

USE 170: RETURN 

5000 RETURN 


io 


4000 GOSUB 1500 

4010 LOCATE 2,0:PRINT " CAIXA E 
CONÔMICA FEDERAL" :LOCATE 2,1:PR 
INT” Agência de Serra Pelada” 
4020 PRINT:PRINT "Cotação do ou 
ro:*: PRINT ER;"por kqg de ouro”: 
PRINT: INPUT "Quantos kg vai ven 
der” ;NT 

4080 NT=INT(NT) 

4090 IF NT>A(M,2) OR NT<0O THEN 
4000 

4100 A(M, 2) =A(M, 2)-NT:A(M,1)=A( 
M, L)+NT*ER:A(M,0)=A(M,0)-NT*ER 
4130 PRINT:PRINT NT;"kqg vendido 
Bs por" ;NT*ER:FOR Z=1 TO 2000:NE 
XT 

5000 RETURN 


4000 HOME 
4010 VTAB 1: HTAB 6: INVERSE : 
PRINT ” CAIXA ECONOMICA FEDERA 


L *": VTAB 2: HTAB 6: PRINT ” AG 


INK 1: BORDER 6: 





ENCIA DE SERRA PELADA ": NORMAL 
4020 PRINT : PRINT "COTACAO DO 
OURO:”: PRINT ER;” POR KG DE O 

URO”: PRINT : INPUT "QUANTOS KG 
VAI VENDER ? ";NT 

4080 NT = INT (NT) 

4090 IF NT > A(M,2) OR NT <ÕõO 

THEN 4000 

4100 A(M,2) = A(M,2) - NT:A(M,1 


) = A(M,1) + NT * ER:A(M,0) 
(M,0) + NT * ER 
4130  PRINT': PRINT NT;” KG VEN 


= À 


DIDOS POR ";NT * ER: FOR Z = 1 
TO 1000: NEXT : RETURN 

5000 RETURN 

4000 CLS 


4020 PRINT €4,"CAIXA ECONOMICA 

FEDERAL” : PRINT €136,"COTACAO DO 
OURO ":PRINT €197,"1 KG DE OUR 

O=" ;ER: PRINT €228,"QUANTOS KG V 

AI VENDER” ;: INPUT NT 

4080 NT=INT(NT) 

4090 IF NT>A(M,2) OR NT<O THEN 

4020 

4100 A(M,2)=A(M,2)-NT:A(M, 1)=A( 

M,1)+(NT*ER) :A(M,0)=A(M,0)+(NT* 
ER) 

4130 PRINT €448,NT;"KG VENDIDOS 
POR ";NT*ER:FOR Z=1 TO 1000:NE 

XT: RETURN 

5000 RETURN 


A linha 4000 limpa a tela, como de 
costume. A linha 4020 coloca um rótu- 
lo no video, imprime a cotação do ouro 
no mercado e pergunta quantos quilos 
serão vendidos. A linha 4070 verifica se 
o jogador tem realmente a quantidade 
de metal que pretende vender. A linha 
4080 certifica-se de que essa quantida- 
de é um número inteiro. 

Se o jogador tentar vender mais do 
que tem, ou quiser comercializar uma 
quantidade negativa de ouro, a linha 
4090 enviará o programa de volta ao ini- 
cio da sub-rotina. A linha 4100 ajusta 
as posses do jogador de acordo com o 
ouro vendido. 

Finalmente, a sub-rotina informa ao 
jogador, por intermédio da linha 4130, 
a quantia que ele recebeu pela venda do 
ouro. A linha 5000 apresenta a opção de 
passar a vez, 


RETOQUES FINAIS 





1 FOR n=USA "a" TO USR "o"+7 
: READ a. POKE n,a: NEXT n 
7000 PAPER 5: INK O: BORDER 5: 
CLS 
7010 PRINT AT 2,4;" JORNAL DE SE 
RRA PELADA" ;AT 4,3;"Falencias 
e Concordatas” 





7020 PRINT AT 10,0;” Faliu ho 
je a empresa de mine-racao ";asS 
(m);" Ltda,”": PRINT "gracas a m 
a administracao de seuproprieta 
rio.” 

7025 PRINT FLASH L;AT 20,1;" O 
ualquer tecla para recomecar * 

7030 PAUSE O: RUN 5 

8000 DATA 255,85,170,0,0,0,0,0, 
62,28,56,126,28,62,120,28 

BO1L0 DATA 255,255,62,126,127,60 
,124,126,0,0,0,0,1,1,1,1 

BO0OZ20 DATA 7,29,49,45,255,255,91] 
,126,128,96,48,80,152,140,252,1 
38 

8030 DATA 1,1,1,49,49,49,49,255 
.122,187,62,95,153,255,153,126 

8040 DATA 209,177,224,128,128,1 
28,128,128,0,0,128,128,64,32,32 
, LÓ 

8050 DATA 1,3,7,7,4,4,7,7,255,2 
55,255,255,149,149,159,159 

B060 DATA 24,126,153,255,126,15 
3,126,219,128,192,224,240,248,1 
6B,248,255 

B070 DATA 16,8,8,4,14,31,31,255 


ta J | | 


LG R=RND(-TIME) 

70 SCREEN 1:COLOR 1,10,4:KEY OF 
F 

BO FOR 1=0 TO 119 

90 READ A:VPOKE BASE(7)+192*8+1 
(A:NEXT 

7000 GOSUB 1500 


7010 LOCATE 2,0:PRINT” JORNAL D 


25 PROGRAMAÇÃO DE JOGOS 25 


E SERRA PELADA ":LOCATE 3,4:PRI 
NT” FALÊNCIAS E CONCORDATAS” 
7020 PRINT:PRINT "Faliu hoje a 
emprêsa de”: PRINT “mineração "; 
AS (M);" Ltda.":PRINT “graças a 
má administração”: PRINT "de seu 
proprietário” 

7030 LOCATE 0,19:PRINT "QUALQUE 

R TECLA PARA RECOMEÇAR” 

7040 IF INKEYS="" THEN 7040 ELS 
E RUN 

8000 DATA 255,85,170,0,0,0,0,0, 

62,28,56,126,28,62,120,28 

B010 DATA 255,255,62,126,127,60 
,124,126,0,0,0,0,1,1,1,1 

8020 DATA 7,29,49,45,255,255,91 
,126,128,96,48,80,152,140,252,1 
38 

8030 DATA 1,1,1,49,49,49,49,255 
/122,187,62,95,153,255,153,126 

8040 DATA 209,177,224,128,128,1 
28,128,128,0,0,128,128,64,32,32 
(16 

B050 DATA 1,3,7,7,4,4,7,7,255,2 

55,255,255,149,149,159,159 

8060 DATA 24,126,153,255,126,15 
3,126,219,128,192,224,240,248,1 

68,248B,255 

8070 DATA 16,8,8,4,14,31,31,255 

7000 HOME 

7010 VTAB 1: HTAB 7: INVERSE : 
PRINT " JORNAL DE SERRA PELADA 
". NORMAL : VTAR 3: HTAB 7: PR 

INT "FALENCIAS E CONCORDATAS” 





7020 PRINT : PRINT "FALIU HOJE 
A EMPRESA DE MINERACAO”: PRINT 
AS(M);” LTDA. GRACAS A MA ADMI 
NISTRACAO": PRINT "DE SEU PROPR 
IETARIO" 

7030 PRINT : PRINT "QUALQUER T 
ECLA PARA JOGAR NOVAMENTE” 

7040 GET RS: RUN 


7000 CLS 

7010 PRINT €76,AS(M): PRINT 6168 
| "ACABA DE FALIR! *:PRINT 6449, 
"QUALQUER TECLA PARA RECOMECAR” 
7020 IF INKEYS="" THEN 7020 ELS 
E RUN 

9000 FOR K=1 TO LEN(ZS) 

9010 BS=MIDS(Z3,K,1) 

9020 IF B$>="0" AND BS<="9" THE 
N DRAW NUS (VAL (B3)) :GOTO 9050 
9030 IF B$="-"THEN DRAW "BF2R4” 
9050 NEXT 

9060 RETURN 


As linhas 7000 a 7030 abrigam uma 
rotina para iniciar uma nova partida. 

No Spectrum e no MSX, as linhas 
8000 a 8070 contêm os dados para os 
blocos gráficos que desenham a mina € 
o processo de perfuração. No MSX, é 
usada a tela de textos de 32 colunas. Os 
padrões são guardados na tabela de pa- 
drões — BASE(7). No TRS-Color, as li- 
nhas 9000 a 9060 desenham o buraco, 
no lado esquerdo da mina. 
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m grande problema. — cessariamente do mesmo computador. | ARQUIVOS DE DADOS 














NOMES DE ARQUIVOS 








ra identificar os dados requeridos. 

Em fita cassete pode-se ter mais de 
um arquivo com a mesma denominação, 
ou mesmo arquivos sem nenhum nome. 
Mas esses procedimentos geram graves 
problemas. Se você instruir o computa- 
dor para ler a última versão de um ar- 
quivo que tem o mesmo nome da cópia 
anterior, ele não poderá decidir que ver- 
são deve ler e ficará com a primeira que 
aparecer. A solução é dar a cada cópia 
um nome adequado e único. 

Quando se usa um sistema de disco, 
o procedimento para a escolha de nomes 
é o mesmo. Nesse sistema, porém, é per- 
feitamente possível gravar um arquivo 
no lugar de outro (apagando este últi- 
mo), caso o mesmo nome tenha sido da- 
do aos dois. Alguns sistemas operacio- 
nais de disco impedem que isso aconte- 
ça, mas, geralmente, deve-se proteger O 
arquivo de um apagamento acidental — 
“travando-o”, como se diz no jargão da 
informática. 

Ao escolher o nome, certifique-se de 
que não está ultrapassando o tamanho 
máximo permitido por cada micro. Em 
fita, O espaço para o nome de um arqui- 
vo não vai além de dez caracteres no 
Spectrum, oito no TRS-Color e seis no 
MSX. O Apple não usa nome para ar- 
quivos em fita. Em sistemas de disco, o 
tamanho varia bastante, 

Convém ressaltar que o nome de 
qualquer arquivo computadorizado de- 
ve ser de fácil memorização. Além dis- 
so, ele precisa traduzir claramente seu 
conteúdo. Uma lista de todos os seus ar- 
quivos também ajudará bastante. 

Os processos de transferência de da- 
dos através de um mecanismo de arma- 
zenamento são descritos pelas palavras 
gravar e ler (write e read, em inglês). Ca- 
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da computador tem um conjunto dife- 
rente de comandos para essas duas ope- 
rações, mas, de um modo geral, as roti- 
nas são muito parecidas. 

Normalmente, o programa principal 
é o primeiro a ser carregado na memó- 
ria do computador — ele pode ser, por 
exemplo, um editor de textos ou um ge- 
renciador de banco de dados. 

Se o programa precisar de dados que 
não estão nele próprio, estes devem ser 
carregados de um arquivo de dados ou 
do teclado, manualmente. A partir daí, 
os dados serão corrigidos, alterados e 
trabalhados. Eles não poderão ser mo- 
dificados enquanto permanecerem no 
disco ou na fita. 

Em alguns arquivos, toda a informa- 
ção tem que ser colocada na memória, 
mesmo que apenas uma pequena porção 
dela vá ser trabalhada. Este é o caso do 
Spectrum com um Microdrive. Em ou- 
tros casos, pode-se ler apenas os dados 
que serão modificados. Por fim, a in- 
formação é gravada em um mecanismo 
externo de armazenamento (disquete ou 
fita cassete), ou enviada a outro meca- 
nismo, como uma impressora. 

Analisemos agora, mais detalhada- 
mente, os estágios de gravação e leitu- 
ra. Primeiro, deve ser dada ao compu- 
tador uma instrução para abrir um ca- 
nal de comunicação, de modo que ele 
saiba que a informação transitará por 
aquele ponto. Outras informações po- 
dem ser fornecidas a partir do coman- 
do de abertura do canal de comunica- 
ção, para especificar, por exemplo, que 
tipo de periférico está sendo acessado. 
Geralmente o periférico será um grava- 
dor cassete ou uma unidade de disquete. 

Aberto o canal, são usados coman- 


dos para enviar ou gravar a informação. 





no periférico escolhido. Inicialmente, os 
comandos são empregados para receber 
e não para enviar dados. Em qualquer 
dos casos, uma área de memória será 
utilizada para armazenamento temporá- 
rio de informações (buffer). 

Quando o acesso à informação ter- 
mina, é preciso fechar o canal de comu- 
nicação. Assim, toda informação que 
estiver no meio do trajeto (ou eventual- 
mente parada no buffer) será forçada a 
terminar o percurso. Para encerrar, O 
computador marca o fim do arquivo — 
end of file (eof), em inglês. 

Até ser reaberto, o arquivo não trans- 
mitirá nem receberá nenhuma outra in- 
formação. Isso não impede a manipu- 
lação de arquivos por outros canais 
eventualmente abertos (sempre que o 
sistema seja capaz de trabalhar ao mes- 
mo tempo com vários canais). 

As instruções para executar essas ta- 
refas variam conforme o micro. Veja- 
mos cada uma delas. As instruções SA- 
VE e LOAD (e variantes) que se aplicam 
a programas não serão abordadas. 

Em cada um dos exemplos, a letra N 
se refere ao número do arquivo que é 
usado por muitos dos comandos; X (ou 
X$) é a informação transmitida. 


Se você usa um gravador cassete pa- 
ra armazenar dados, está limitado a gra- 
var programas, bytes e matrizes. Arqui- 
vos de dados podem ser manipulados 
com um Microdrive adequadamente ins- 
talado (esse dispositivo não é fabricado 
no Brasil). Os comandos de entrada e 
saida são os seguintes: 

OPENt 








= 


| | 

| | | 
| | | | 
| | j 


utilizado com a finalidade de preparar 
o sistema para a transferência de in- 
formação. 

Em sua forma padrão, esse coman- 
do fica assim: 
OPEN4N;"m";1;"NOME DE ARQUIVO” 


onde a expressão NOME DE ARQUI- 
VO pode ser uma variável previamente 
definida. Os dados, por sua vez, são 
transmitidos pelo canal de número N, 
sendo m o canal do Microdrive. 


PRINT+ 


usado na forma PRINT & N;X (ou X$) 
com o objetivo de enviar a informação 
a ser gravada para o buffer de dados. 


INPUT4 


utilizado na forma INPUT &N;X (ou 
X$) para ler dados do buffer de dados. 
Estes são lidos até que surja um CR (car- 
riage return). 

CLOSEt 


fecha um canal de comunicação previa- 
mente aberto. Seu formato é CLOSE & N. 


Existem vários comandos para abrir 
linhas de comunicação, principalmente 
em um gravador cassete. Já as unidades 
de disco são acessadas por comandos 
que variam de acordo com o sistema 
operacional de disco em uso. 


OPEN 


abre um canal de comunicação para um 
periférico específico. Para gravar dados 
em fita, esse comando toma a seguinte 
forma: 


OPEN "0",4-1,"NOME DE ARQUIVO” 





























onde apenas NOME DE ARQUIVO é 
uma variável definida pelo programa do 
usuário. O número -1 indica o gravador 
cassete. Se quisermos abrir um arquivo 
para leitura, devemos usar o comando 
na seguinte forma: 


OPEN "I”,4-1,"NOME DE ARQUIVO” 
INPUT 4 


lê um cordão de um arquivo. A instru- 
ção EOF(-1) (cof significa fim de arqui- 
vo) pode ser usada para evitar erros (im- 
pede que se tente ler dados além da mar- 
cação de fim de arquivo). 


PRINT+ 


envia informações para O periférico es- 
pecificado pelo número N. O comando 
toma esta forma: 


PRINT&N,XS 








E O A ge 5 E 


onde o caractere Né — 1 para O gravador 
cassete e—2 para a impressora. 

Já o comando 

CLOSE+ 


fecha o canal de comunicação com o pe- 
riférico. É usado na forma: 


CLOSES4N 
onde N é geralmente —1. 


o 


O MSX pode ser conectado tanto a 
um gravador cassete como a um contro- 
lador de discos para armazenamento de 
programas e dados. Abordaremos aqui 
os comandos referentes à manipulação 
de arquivos de dados em fita: 


OPEN 


utilizado para abrir um canal de comu- 
nicação com vários periféricos, que po- 
dem ser: gravador cassete, tela de tex- 
to, tela de gráfico, impressora, aciona- 
dor de discos. Num arquivo em fita, O 
comando toma esta forma: 


OPEN "CAS:NOME ARQUIVO” 
FOR INPUT AS 4N 


para se ler dados de um determinado ar- 
quivo usando o canal N (onde N pode 
ser 1, 2 etc.). Para gravação de dados, 
substitui-se INPUT por OUTPUT. 


PRINT 


serve para enviar dados a um periféri- 
co, Toma a forma 
PRINT4AN,X (ou XS) 


Quando se usa mais de uma variável 
na mesma instrução PRINT &, é neces- 
sário que sejam tomados alguns cuida- 
dos. Se forem variáveis numéricas, não 
há problema, pois o BASIC se encarre- 
gará de separá-las. No entanto, expres- 
sões alfanuméricas devem ser separadas 
explicitamente por vírgulas: 


PRINT$41,AS;",":BS 


Esse comando pode ser combinado 
com a instrução USING para determi- 
nar o formato do dado. 


INPUT& 


lê dados de um determinado periférico. 
Toma a forma 


INPUT&N,X (ou X5) 


No caso de variáveis numéricas, um 
espaço, uma vírgula, um retorno de car- 
ro (CR) ou um avanço de linha (LF) in- 
dicam o fim do número. 

Para variáveis alfanuméricas, serão 
reconhecidos os marcadores acima (com 
exceção do espaço). 


LINE INPUT+ 


é usado para fazer a leitura de variáveis 
alfanuméricas de um periférico. A dife- 
rença dessa instrução em relação ao co- 
mando anterior é que apenas o retorno 
de carro (CR) marca o fim do cordão 
que está sendo lido. 

EOF (N) 


indica se o final do arquivo foi encon- 
trado. É habitualmente usado para evi- 
tar que se tente ler dados inexistentes no 
arquivo. O valor — 1 retorna quando o 
marcador de fim de arquivo é encontra- 
do. Esse comando é mais utilizado na 
forma 


IF EOF(1) THEN inatrução 


onde instrução provoca geralmente o fe- 
chamento do arquivo. 


CLOSE 


serve para fechar o canal de comunica- 
ção de número N. Força o envio dos da- 
dos remanescentes no buffer de dados 
para o periférico ligado a esse canal. To- 
ma a forma 

CLOSEHN 


Puta 


O Apple e o TK-2000 são extrema- 
mente limitados em sua capacidade de 
manipular arquivos em fita. Como no 
Spectrum, apenas programas e matrizes 
podem ser gravados em fita. A seguir, 
descreveremos alguns comandos e as- 
pectos mais importantes da manipula- 
ção de arquivos pelo sistema operacio- 
nal DOS &3.3 do Apple. 

Inicialmente, convém chamar a aten- 
ção para um fato essencial, que já cus- 
tou muitas horas de trabalho a mais de 
um programador: todos os comandos 
do sistema operacional devem ser pre- 
cedidos de um caractere especial — 
CTRL-D. Esse caractere deve estar sem- 
pre na primeira posição da linha, Desse 
modo, se antes de um comando houver 
um PRINT seguido de um ponto e vir- 
gula, que deixe o cursor numa posição 
que não seja a primeira da linha, o co- 
mando não será reconhecido como do 
DOS. Igualmente importantes são as 
formas de colocar o CTRL-D na linha 
do comando. A mais segura consiste em 
definir uma variável que contenha esse 
caractere e colocá-la na linha de coman- 
do. Outra maneira é simplesmente acio- 
nar CCTRL-D (ou seja, pressionar a te- 
cla CTRL simultaneamente com a tecla 
D) logo após ter aberto as aspas exigi- 
das pelos comandos do DOS. 

Nos exemplos a seguir, recorreremos 
ao primeiro método, usando a variável 





D$ (frequente entre os programadores do 
Apple). Ela é definida por meio do có- 
digo ASCII de CTRL-D: 

D5=CHRS (4) 


Vejamos alguns comandos; 
OPEN 


abre um canal de comunicação entre a 
CPU e uma unidade de disco, assumin- 
do a seguinte forma: 


PRINT D$S:"OPEN NOME ARQUIVO”, 
Dd, Ss, Vv 


onde NOME ARQUIVO pode ser repre- 
sentado por uma variável alfanumérica 
e ter até trinta caracteres. A letra D é 
seguida do número do drive acessado 
(1 ou 2). A letra S é acompanhada do 
número do soquete (ou slot) no qual a 
placa que controla as unidades de dis- 
co está instalada (esse número é, em ge- 
ral, 6). E V é seguido do número do vo- 
lume do disquete, que é definido no mo- 
mento de sua formatação. Esses três úl- 
timos parâmetros são opcionais e inde- 
pendentes: a presença de um não impli- 
ca o uso dos demais. 


READ 


é empregado para habilitar um arquivo 
em disco para a leitura de dados e toma 
a seguinte forma: 


PRINT DS,"READ NOME ARQUIVO” 


A seguir, digita-se o comando IN- 
PUT para ler os dados desejados do ar- 
quivo em uso. O comando PRINT DS, 
por sua vez, encerra a leitura de infor- 
mações do arquivo de dados (D$ deve 
conter o caractere CTRL-D). 


WRITE 


envia e grava os dados em um arquivo 
em disco. Ele é usado na forma 


PRINT D5;"WRITE NOME ARQUIVO” 


Ele deve ser acompanhado de vários 
comandos PRINT para o envio dos da- 
dos. No caso de variáveis alfanuméricas, 
elas devem ser separadas por um CR (re- 
torno de carro) para serem lidas indivi- 
dualmente mais tarde: 


PRINT AS;CHR$S(13);B5 
CLOSE 


fecha o canal de comunicação estabele- 
cido. Ele é usado na forma 


PRINT DS,"CLOSE NOME ARQUIVO” 
+Dd, 8a, Vy 


Como no comando OPEN, os três úl- 
timos parâmetros são opcionais. Neste 
caso, NOME ARQUIVO pode ser omi- 
tido, provocando o fechamento de to- 
dos os arquivos abertos no momento. 
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Agora que você já conhece os segredos 
da perspectiva, pode reunir 

vários problemas e rotinas e desenhar 
as mais diversas figuras 

flutuando no espaço interestelar. 


Até aqui trabalhamos apenas com 
formas retangulares, quadrados e circu- 
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los concêntricos. Ao avançar um pou- 
co mais em nosso estudo, entretanto, 
aprendemos a combinar (por meio de 
várias transformações) uma série de gra- 
des numa vista em perspectiva de um 
cubo. Este artigo ensina como pequenas 
mudanças no programa desenvolvido 
até este ponto pode nos tornar capazes 
de desenhar uma grande variedade de 
imagens tipo wireframe. 
Começaremos com um desenho de fi- 
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guras múltiplas. Se você já testou o pri- 
meiro programa do artigo Programação 
de Gráficos em 3-D (3), deve ter nota- 
do as alterações da imagem em perspec- 
tiva quando a distância do observador 
em relação ao objeto (D) é pequena, e 
o pouco efeito de perspectiva quando es- 
sa distância, ao contrário, é muito gran- 
de. Esse programa será desenvolvido 
agora de maneira a mostrar quatro 
cubos e não apenas um. 
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MULTIPLICIDADE DE OBJETOS 


Os usuários que gravaram em fita ou 
disco os programas dos artigos prece- 
dentes desta série estão livres de boa par- 
te do trabalho de digitação. Os que não 
fizeram isso terão que inserir não só o 
programa do artigo anterior (que se ini- 
cia na página 641) como também a ro- 
tina que desenha círculos, apresentada 
no primeiro artigo desta série (página 
581). 

O programa é constituído de blocos 
e rotinas, o que facilita a sua modifica- 
ção para representar ao mesmo tempo 
quatro imagens em vez de uma. 

Desse modo, se quiséssemos desenhar 
um conjunto de quatro cubos, por 
exemplo, precisariamos especificar suas 
posições na tela e chamar quatro vezes 
a Rotina do Cubo. À posição estaria 
melhor especificada na rotina que trans- 
forma as coordenadas. 

Passemos da teoria à prática. Para 
começar, modifique essa parte do pro- 
grama como mostramos a seguir (mas 
não rode o programa por enquanto): 


Globos, elipses, cubos, estações orbitais: as possibilidades 
criadas pelo programa do toro e pela rotina da grade são 
praticamente ilimitadas. Observe a deformação na perspectiva 
dos cubos, com pontos de fuga muito próximos. 
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B500 
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8520 
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mit 


8500 
8510 
8520 


B500 
B510 
8520 


X1=TI*X+T4*Y+T/+XO 
Y1=T2*X+TS*Y+TB+TO 
Z1=TI*K+HTONT+TO+ZO 


LET X1l=TIL*X+T4*Y+T7+XO 
LET Y1l=T2*X+T5*Y+TB+TO 
LET Z1l=TI*X+T6*Y+TS+ZO 





As variáveis XO, YO e ZO no final 
dessas três linhas especificam um equi- 
valente, em cada uma das três coorde- 
nadas, para determinar a separação dos 
quatro cubos. São atribuídos valores a 
essas variáveis antes de os cubos serem 
desenhados. 

Agora digite essa outra seção de pro- 
grama e rode-a para ver qual é o efeito 
do equivalente: 


eb) [co] 


1520 GOSUB 1000 
1530 KO = PP:YO = - PP:ZO = 0 
120 L = 20:PP = 20:N = 2 


150 GOSUB 1500 
1500 XO = - 
Õ 


PP:EYO = —- PP:ZO = 
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1540 GOSUB 1000 

1550 XO = PP:YO = PP:ZO = 0 
1560  GOSUB 1000 

15720 XO = - PP:YO = PP:Z0 
1580 GOSUB 1000 

1590 RETURN 


120 L=)0:PP=20:N=2 

150 GOSUB 1500 

1500 X0=-PP:YO=-PP:Z0=0 
1520 GOSUB 1000 

1530 XO=PP:TO=-PP:Z0=0 
1540 GOSUB 1000 
XO=PP:YO=PP: Z0=0 
GOSUB 1000 
X0=-PP:YO=PP:Z0=Ô 
GOSUB 1000 

RETURN 


O 








A versão para o MSX é a mesma do 
TRS-Color, exceto pela linha: 


120 L=20:PP=20:N=?2 


120 LET L=20: 

=] 

150 GOSUB 1500 
1500 LET XO=-PP: 
T Z0=0 
1520 GOSUB 1000 
1530 LET XO=PP: 

Z0=0 
1540 GOSUB 1000 
1550 LET XO=PP: 
Z0=0 


LET PP=20: LET N 
LET YO=-PP: LE 
LET TO=-PP: 


LET 


LET YO=PP: LET 
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1560 GOSUB 1000 
1570 LET XO=-PP: 
Z0=0 

1580 GOSUB 1000 
1590 RETURN 

A linha 120 contém a variável PP, 
que transfere o valor para o equivalen- 
te na linha 1500. 

A linha 150 chama uma rotina para 
desenhar quatro cubos. A sub-rotina es- 
pecifica uma posição, como na linha 
1530, por exemplo, e chama a rotina do 
cubo na linha seguinte, desenhando as- 
sim os quatro cubos. 

Ao rodarmos o programa, teremos 
que fornecer alguns dados. O programa 
pedirá primeiro pelo valor de D (distân- 
cia do plano de projeção). O valor 1000 
será suficiente para começarmos. O pro- 
grama então pedirá para que forneça- 
mos a posição do observador (X, Y e Z). 
Experimente os valores que sugerimos 
a seguir e note como as imagens se dis- 
torcem quando D é pequeno (mas não 
quando ele é grande). Tente usar seus 
próprios valores também, incluindo mi- 
lhares para D e números negativos ou 
zero para X, Y,e Z: 








LET YO=PP: 


LET 








D X Y Z 

100 55 0 Õ 

900 200 -250 200 
20000 1000 3000 10000 


A grande variedade de vistas possi- 
veis com este programa nos permite fa- 
zer vários experimentos, mas não deve- 
mos nos limitar a modificar apenas os 
valores da posição do observador. A li- 
nha 120 contém variáveis responsáveis 
pelo comprimento dos lados do cubo L, 
pela separação destes (PP) e pelo núme- 
ro de quadrados na grade (N): três va- 
riáveis que podem ser alteradas antes de 
se rodar o programa. 





DESENHE UM GLOBO 


Embora curto, o programa que aca- 
bamos de inserir é capaz de desenhar 
imagens complexas, pois pode chamar 
qualquer uma das muitas rotinas conti- 
das na listagem. Uma dessas rotinas po- 
deria ser aquela que desenha círculos 
concêntricos (linhas 6000 a 6160), apre- 
sentada no artigo Programação de Grá- 
ficos em 3-D (1), à página 581. Caso ela 
não esteja em seu programa, digite-a no- 
vamente e grave-a em disco ou fita pa- 
ra eventual uso futuro. 

Em seguida, modificaremos o pro- 
grama para que ele chame a rotina do 
círculo, em vez de chamar as rotinas da 
grade, do lado ou do cubo. Apague a 
linha 120 e acrescente estas linhas: 


é) Lo! 


150 R = 20:N = 18: GOSUB 2000 
2000 T7 = O:T8B = O:T9 = O 

2010 T4 = 0:T5 = O:T6 = 1 

2040 KA = 2 * PI / WN 

2050 KB = 0 ; 

2060 FOR KC = 1 TO INT(N/2 
) 

2070 Ti = COS (KB):T2 = SIN ( 
KB):T3 = 0 

2080 XS5 = 0:YS5 = O: GOSUB 6000 
2090 KB = KB + KA 

2100 NEXT KC 

2110 Tl = 1:T2 = 0:T3 = 0 

2120 Tá = 0:T5 = 1:T6 = 0 

2130 KA = KA / 2 

2140 KB = 0O:RR = BR 

2150 FOR KC = 1 TON 

2160 T7 = O:T8 = O:T9 = RR * C 
Os (KB) 


2170 X8 = 0:YS = O:R = RR * &I1 
N (KB): GOSUB 6000 

2180 KB = KB + KA 

2190 NEXT KC 

2200 RETURN 


DM 


150 R=20:N=18:GOSUB 2000 
2000 T7=0:T8=0:T9=0 





2010 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
UB 
2180 
2190 
2200 


100 LET X0=0: 


=0 


150 LET R=20: 


T4-0;T5-0: T6-1 

KA=2*PI/N 

KB=0 

FOR KC=1 TO INT(N/2) 
Ti=C0S (KB) :T2=SIN(KB):T3=0 
X8=-0:Y8=0:GOSUB 6000 
KEB=KB+KA 

NEXT KC 

Tl=1:T2=0:T3=0 
Tá=0:T5=]:T6=0 

KA=KA/2 

KB=0:RA=R 

FOR KC=1 TO N 

T7=-0:T8=0: T9=RAXCOS (KB) 
X8=0:Y8=0:R=RR*SIN(KB) :GOS 


6000 


KB=KB+KA 
NEXT KC 
RETURN  . 


LET Y0=0: LET ZO 


LET N=18: GOSUB 


2000 


2000 LET T7=0: 


=0 


2010 LET Td=0: 


=] 


LET TB=0: LET T9 


LET T5=0: LET T6 


2040 LET KA=2*PI/N 

2050 LET KB=0 

2060 FOR K=1 TO INT (N/2) 

2070 LET Ti=COS KB: LET T2=SIN 
KB: LET T3=0 


2080 LET XS=0: LET YS=0: GOSUB 
6000 

2090 LET KB=KB+KA 

2100 NEXT K 

2110 LET Tl=1l: LET T2=0: LET T3 
=] 

2120 LET Tá=0: LET T5=1: LET T6 
=( 

2130 LET KA=KA/2 

2140 LET KB=0: LET RR=BR 

2150 FOR K=1 TON 

2160 LET T7=0: LET TB=0: LET T9 
=AR*COS KB 

2170 LET X8=0: LET Y8=0: LET R= 


RR*SIN KB: GOSUB 6000 
2180 LET KB=KB+KA 
2190 NEXT K 

2200 RETURN 


Ao rodar o programa, devemos for- 
necer valores para D, bem como para a 
posição do observador. Com esses va- 
lores, a linha 150 chama a rotina que 
acabamos de inserir e desenha um glo- 
bo. Este é obtido por intermédio do de- 
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senho de uma série de elipses (ou circu- 
los, dependendo da posição do observa- 
dor). Tais elipses formam as linhas de 
longitude (que ligam os pólos do globo) 
e as de latitude, que correm paralelas à 
linha do equador. 

O raio do globo é especificado em R, 
na linha 150, e o número de linhas de 
latitude e longitude, em N; este deve ser 
um valor par e maior do que 2. As li- 
nhas 2000 a 2050 ajustam as variáveis 
para posicionar o globo e para usá-las 
com contadores. O laço entre 2060 e 
2100 desenha as linhas de longitude, e 
o que fica entre 2150 e 2190 traça as li- 
nhas de latitude. 

O eixo do globo corta os pólos e sua 
direção é determinada pelas variáveis 
cujos valores definimos no começo do 
programa. Para verificar como os pó- 
los do globo são posicionados em rela- 
ção aos eixos da tela, estabeleça zero pa- 
ra duas das coordenadas da posição do 
observador (0, O, 200, por exemplo). De- 
pois, defina valores positivos ou nega- 
tivos para as três coordenadas e veja co- 
mo os pólos se movimentam em relação 
aos eIxos. 


DO GLOBO AO TORO 





O globo é uma das formas mais sim- 
ples; para desenhá-lo, recorremos a uma 
série de elipses, mas o mesmo progra- 
ma contém todos os elementos necessá- 
rios para o desenho de uma forma mais 
exótica — um toro (ou argola). Para 
realizá-lo, precisamos apenas de peque- 
nas modificações na rotina do globo, co- 
mo mostra a listagem a seguir: 


1580 BR = 10:N = 18:RT = 20:N2 = 
LB: GOSUB 2000 


2040 KA = 2 * PI / NZ2:NC = N2 


2045 IF RT = O THEN NC = INT 
(NC / 2) 

2060 FOR KC = 1 TO NC 

2080 XMS = RT:YS = 0: GOSUB 6000 
2130 KA = 2 * PI / WN 

2135 TF ART = O THEN KA = KA / 
2 

2170 XS = 0:YS = 0:R = RT + AR 


* SIN (KB):N = N2: GOSUB 6000 


as 


150 A=10:N=18:RT=20:N2=18:GOSUB 
2000 

2040 KA=2*PI/N2:NC=N2 

2045 IF RT=O0 THEN NC=INT(NC/2) 

2060 FOR KC=1 TO NC 

2080 XS=RT:Y8=0:GOSUB 6000 

2130 KA=2*PI/N 

2135 IF RT=0 THEN KA=KA/2 










Há alguma forma de se acelerar o 
desenho da estação espacial? 
O modo mais grosseiro de se acele- 
rar o programa consiste em reduzir o 
número de etapas nas rotinas principais 
— a rotina do círculo na estação espa- 
cial e a da grade nos cubos. Contudo, 
esse método reduz a suavidade das 
elipses e altera a estrutura do desenho. | 
Uma alternativa melhor seria diminuir 
O número de acessos a essas rotinas. 
2e quisermos, por exemplo, diminuir | 
o número de segmentos que cortam o 
| tubo de um toro, devemos reduzir os 
valores de R, N, AT e N2 na rotina do 
toro que começa na linha 2000. É ne- 
cessário também que as rotinas mais | 
usadas estejam no começo do progra- 
ma e que se usem variáveis em vez de 
números, sempre que possível. O uso 
indiscriminado de comandos GOTO 
também desacelera a execução de um | 
| programa. 
| Talvez a maneira mais fácil de ace- 
lerar esse programa seja omitir o dese- 
nho dos tubos que ligam o toro ao glo- 
bo; faremos isso com um simples des- 
vio (GOTO) no programa. 





2170 X8=-0:Y5=0;R=RT+RR*SIN (KB): 
N=N2:GOSUB 6000 


150 LET R=10: LET N=18B: LET RT 
=20: LET N2=18: GOSUB 2000 
2040 LET KA=2*PI/N2: LET NC=N2 
2045 IE RT=0 THEN LET NC=INT ( 
NC/2) 
2060 FOR K=1 TO NC 
2080 LET XS=RT: LET YS8=0: GOSUB 
6000 
2130 LET KA=2*PI/N 
2135 IF RT=0 THEN LET KA=KA/2 
2170 LET X8=0: LET YS=0: LET R= 
RT+RR*SIN KB: LET N=N2: GOSUB 
6000 


Rode o programa e defina valores pa- 
ra D e para a posição do observador 
(1000, 200, 200, 200, por exemplo). Des- 
ta vez, R contém o raio interno do tu- 
bo, e o número de anéis é determinado 
por N. Esses anéis são equivalentes às 
linhas de longitude no globo. RT espe- 


cifica a distância entre a origem e o tu- 


bo, e N2 determina o número de linhas | 


que formam o tubo, o que equivale às E 

















linhas de latitude no globo. O valor de 
RT deve ser maior que o de R, mas a 
rotina funcionará bem mesmo se isso 
não acontecer. Altere o valor dessas va- 
riáveis e observe o efeito obtido. Se RT 
for zero e N igual a N2, o toro se trans- 
formará numa esfera, como aquela da 
rotina do globo. 





COMO COMBINAR IMAGENS 


Não seria difícil substituir a rotina do 
cubo que desenha quatro imagens jun- 
tas na tela pela do globo ou do toro. Do 
mesmo modo, também seria simples 
chamar qualquer combinação das três 
rotinas e desenhar, por exemplo: cubos 
dentro de um globo ou de uma argola 
ou mesmo um sistema em que uma ar- 
gola contenha um globo que, por sua 
vez, contenha um cubo. Poderíamos 
ainda usar declarações GOTO em cer- 
tas linhas para suprimir os dois últimos 
lados, tornando assim menos confuso o 
desenho. Digite essas linhas e rode o 
programa para ver surgir uma imponen- 
te estação espacial. 

150 GOSUB 3000 

3000 BR = 6:N = 12:RT = 40:N2 = 
24: GOSUB 2000 

3030 FOR F = 1 TOG6 

3040 A = (F + .25) * PI / 3:L1 
- 10:L2 = 34:N1l = 12:R = 2:NZ = 
8: GOSUB 3500 

3050 NEXT 

3060 R = 10:N = 12:RT = 0:N2 = 
12: GOSUB 2000 

3070 RETURN 

3500 SA = SIN (A) 

3530 CA = COS (A) 

3540 Tl = - SA:T2 = CA:T3 = 0 
3550 Tá = O:T5 = O:T6 = 1 

3560 EA = (LZ - L1) / N1 

3570 EB = L1 

3580 FOR EC = O TO N1 

3590 T7 = EB * CA:T8 = EB * SA: 

T9 = 0 
3600 XS5 = 
B 6000 
3610 EB = 
3620 NEXT 
3630 Tl = CA:T2 = SA:T3 = O 
3640 FOR EC = 1 TO N2Z 

3650 EA = EC * PI / 8 

3660 T7 = R * SA * COS (EA):TB 
“= - R*CA* COS (EA):T9 = R 
* SIN (EA) 

3670 XS = LI:YS = O:XE = L2:YE 
= O: GOSUB 9500 

3680 NEXT 

3690 RETURN 


150 GOSUB 3000 
3000 R=6:N=12:RT=40:N2=24:GOBUB 


0O:YS = O0:N = N2: GOSU 


EB + EA 






2000 
3030 FOR F=1 TO 6 
3040 A=(F+.25)*PI/3:L1=10:L2=34 
:N1l=12:R=2:N2=B8:GOSUB 3500 
3050 NEXT 
3060 R=10:N=12:RT=0:N2=12:GO0SUB 
2000 
3070 RETURN 
3500 SA=SIN(A) 
3530 CA=COS(A) 
3540 Tl=-SA:T2=CA:T3I=0 
3550 Tá=0:T5=0:T6=1 
3560 EA=(L2-L1)/N1 
3570 EB=L1 
3580 FOR EC=0 TO N1 
3590 T7=EB*CA:TS=EB*SA:T9=0 
3600 X98=0:Y9=0:N=N2:GOSUB 6000 
3610 EB=EB+EA 
3620 NEXT 
3630 TI=CA:T2=SA:T3=0 
3640 FOR EC=1 TO N2 
3650 EA=EC*PI/B 
34660 T7=R*SA*COS (EA) : TB=-RACA*C 
OS (EA) : T9O=R*SIN (EA) 
3670 XS=L1l:Y8=0:XE=L2:YE=0:GOSU 
B 9500 
31680 NEXT 
3690 RETURN 


A 


150 GOSUB 3000 
3000 R=6:N=12:RT=40:N2=24:GOSUB 
2000 
3030 FOR F=1 TO 6 
3040 A=(F+.25)*PI/3:L1=10:L2=34 
“Nl=12:8=2:N2=8:GOSUB 3500 
3050 NEXT 
3060 R=10:N=12:ART=0:N2=12:GOSUB 
2000 
3070 
3500 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 


RETURN 

SA=SIN(A) 

CA=COS (A) 
Tl=-SA:T2=CA:T3=0 
T4=0:T5=0:T6=1 
EA=(L2-L1)/N1 

EB=LI 

FOR EC=0 TO N1 

T7=-EB*CA: TB=EB*SA:T9=0 
X9=0:Y8=0:N=N2:GOSUB 6000 
EB=EB+EA 

NEXT 

TI=CA:T2=5A:T3=0 

FOR EC=1 TO N2 

3650 EA=EC*PI/B 

3660 T7=R*SAX*COS (EA) :TB=-RACA*C 
OS (EA) : T9=R*SIN (EA) 

3670 XS=L1l:Y9=0:XE=L2:YE=0:GOSU 
B 9500 

3680 NEXT 

3690 RETURN 


150 GOSUB 3000 


3000 LET R=6: LET N=24: LET RT= 
40: LET N2=24: GOSUB 2000 


3030 FOR F=-1 TO 6 

3040 LET A=(F+.25)*PI/3: LET LI 
-10: LET L2=34: LET Nl=12: LET 
R=2: LET N2=B: GOSUB 3500 


3050 NEXT F 
3060 LET R=10: LET N=12: LET RT 






COMO MELHORAR A NITIDEZ 
Quando a imagem dos quatro cubos 
é pequena — como acontece sempre 
que os valores para a posição do ob- 
servador (X, Y e Z) são bem maiores 
que o da distância de observação D — 
torna-se difícil perceber o que se pas- 
sa durante a execução do desenho. 
Pode-se melhorar a nitidez inserindo de- 
clarações GOTO em locais apropriados 
ao longo do programa (entre as linhas 
1000 e 1170). A mais simples dessas 
| declarações seria GOTO 1220, inseri- 


| da na linha 1125 (linha nova) do pro- 


grama dos quatro cubos. 


=0: LET N2=12: GOSUB 2000 
3070 RETURN 

3500 LET SA=SIN A 

3530 LET CA=COS A 

3540 LET Tl=-SA: LET T2=CA: LET 
T3=0 

3550 LET T4=0: LET T5=0: LET T6 
=] 

3560 LET 
3570 LET 
3580 FOR E=0 TO N1 

3590 LET T7=EB*CA: LET TB=EB*SA 
| LET T9=0 

3600 LET X5S=0: LET YS=0: 

N2: GOSUB 6000 

3610 LET EB=EB+EA 

3620 NEXT E 

3630 LET TI=CA: LET T2=SA: 

T3=0 
3640 
3650 
3660 
=-RACA*COS EA: 
3670 LET X5S=L1: 

E=L2: LET YE=0Q: 
3680 NEXT E 
3690 RETURN 


EA= (L2-L1)/N1 
EB=L1 


LET N= 


LET 


FOR E=1 TO N2 

LET EA=E*PI/8 

LET T7=RXSA*COS EA: LET TB 
LET T9=R*SIN EA 
LET YS=0: LET K 
GOSUB 9500 


A extensão de experimentos possíveis 
com o programa de toro é ilimitada, 
Tente alguns números pequenos para D 
(de 100 a 500, digamos), juntamente 
com diversos valores para X, Y e Z; vo- 
cê obterá, assim, diferentes perspectivas 
(especialmente porque os segmentos do 
toro que estiverem muito próximos se- 
rão omitidos). Tente também valores 
grandes para D e observe o que aconte- 
ce com a distorção. 

Agora, como simples desafio, pode- 
ríamos dar um toque final ao programa, 
adicionando cor ao fundo, por exemplo. 
Deixaremos por conta de sua criativida- 
de incluir estrelas e planetas ao redor da | 
estação. | 
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NInnnNO PRÓXIMO NUÚMEROHHEEERHII 


APLICAÇÕES 
Novas rotinas para o seu banco de dados que lhe permitirão 
organizar melhor as informações. 


PROGRAMAÇÃO DE JOGOS 
Um jogo de adivinhação de palavras inspirado no “jogo da forca”. 
Muito versátil, ele agrada a todas as idades. 


PROGRAMAÇÃO BASIC 
Comandos que permitem ao micro olhar para a sua própria tela: 
úteis, sobretudo, para jogos em que ocorrem colisões. 


CÓDIGO DE MÁQUINA 
Use código de máquina para criar efeitos 
sonoros no Apple e no TK-2000. 





